with Gtk.Main;use Gtk.Main;
with GLib; use GLib;
with Ada.Text_IO, Ada.Integer_Text_IO;use Ada.Text_IO,Ada.Integer_Text_IO;
with Ada.Exceptions;use Ada.Exceptions;
with Lib; use Lib;

procedure Main is
-- 
-- 	fixe1 : ptr_Telephone;
-- 	fixe2 : ptr_Telephone;
	cent : ptr_Central;
	stand : ptr_Standard;
begin

 	Gtk.Main.Set_Locale;
 	Gtk.Main.Init;

-- 	fixe1 := new Telephone;
-- 	fixe2 := new Telephone;

	cent := new Central;
	Standard_New(stand,cent);
-- 
-- 	Telephone_New(fixe1,1,stand);
-- 	Telephone_New(fixe2,2,stand);
-- 	Afficher(fixe1,"youpi");
-- 	Mettre_en_relation(fixe1,fixe2);
-- 	Mettre_en_relation(fixe2,fixe1);

 	Gtk.Main.Main;

end Main;